(jka-compr-handler): Add safe-magic property.

diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index f898bc98a4f3b56efe30d2e6a7b4468308224915..8e347c3b1f6fe2ca31d4c9bf31cf7087135e12df 100644 (file)
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -757,6 +757,7 @@ There should be no more than seven characters after the final `/'."
 Lisp programs can bind this to t to do that.
 It is not recommended to set this variable permanently to anything but nil.")
 
+(put 'jka-compr-handler 'safe-magic t)
 (defun jka-compr-handler (operation &rest args)
   (save-match-data
     (let ((jka-op (get operation 'jka-compr)))